home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / tbbs / prgsourc.zip / HOMES.ZIP / TAG.PRG < prev    next >
Text File  |  1995-12-28  |  883b  |  31 lines
  1. PROCEDURE tag
  2. PARAMETERS tg
  3. *********************************************************
  4. * Returns 0 if tag array full, 1 if tagged, 2 if untagged
  5. *********************************************************
  6.  
  7. fnd=aScan(tarray,pic1)                       && Already in tarray?
  8. IF fnd=0                                         && No - then tag it
  9.    fn = aScan(tarray,"EMPTY",51,1) 
  10.    IF fn = 51
  11.       SET COLOR TO W+/N
  12.       @ 19,5 SAY "Maximum number of tagged listings is 50."
  13.       key=InKey(4)
  14.       DO cls WITH 19,5,19,50
  15.       tg = 0
  16.       RETURN
  17.    ENDIF
  18.    dummy=aIns(tarray,1)
  19.    tarray[1] = pic1
  20.    SET COLOR TO W+/R
  21.    @ 1,8 SAY "Tagged "+tarray[1]+"  " 
  22.    tg=1
  23. ELSE                                             && Yes - then untag it
  24.    SET COLOR TO W+/R   
  25.    @ 1,8 SAY "Untagged "+tarray[fnd]    
  26.    dummy=aDel(tarray,fnd)
  27.    tg=2
  28. ENDIF
  29. RETURN
  30.  
  31.